﻿<!--#include file="../Lib/base.asp"-->
<!--#include file="../lib/Sys_Top.asp"-->
<%if IsObjInstalled("MSXML2.DOMDocument")=false then%>
<script>
$(function(){
	 var AppBox=$.dialog.through;
	  AppBox({
		  content:'您的服务器缺少MSXML2.DOMDocument组件，将无法正常使用本程序！',
		  lock:true,
		  background: '#600',
		  icon: 'error',
		  opacity:'0.5'
	  })
})
</script>
<%end if%>
</head>
<body>
<div id="notice"><span><script language="javascript" src="http://www.xxasp.net/GetWxxasp/notice_biz.asp?js=1&types=notice&version=<%=Wxxasp_version%>&Url=<%=weburl&webroot%>&prefix=<%=prefix%>"></script></span></div>
<div class="clear_fixed">
  <div class="title">
    <div class="subject"><span>管理首页</span></div>
  </div>
  <div class="p10 l30">
    <div class="welcome"><%=getwelcome()%>：<%=Cls.loadsession("adminname")%></div>
    <span class="c9">您已登录：</span><%=Cls.loadsession("logintimes")%> 次　<span class="c9">上一次登录IP：</span><%=Cls.loadsession("lastloginip")%>　<span class="c9">上一次登录日期：</span><%=Cls.loadsession("lastlogindate")%><br>
    <div id="tips"></div>
  </div>
  <div class="title">
    <div class="subject"><span>官方消息</span></div>
  </div>
  <div class="p10 l30" id="nice"><script language="javascript" src="http://www.xxasp.net/GetWxxasp/notice_biz.asp?js=1&types=nice&version=<%=Wxxasp_version%>&Url=<%=weburl&webroot%>&prefix=<%=prefix%>"></script></div>
  <div class="title">
    <div class="subject"><span>研发团队</span></div>
  </div>
  <div class="p10 l30">
    <table cellpadding="5" id="table">
      <tr>
        <td width="100" height="25" align="right">程序信息：</td>
        <td><a href="http://www.xxasp.net" target="_blank">微易ASP公众平台管理系统</a></td>
      </tr>
      <tr>
        <td width="100" height="25" align="right">当前版本：</td>
        <td><%=Wxxasp_version%></td>
      </tr>
      <tr>
        <td height="25" align="right">联系官方：</td>
        <td><a target="_blank" href="http://wpa.qq.com/msgrd?v=3&uin=1350707&site=qq&menu=yes"><img src="../images/q_2.gif" border="0" alt="点击咨询" title="点击咨询"></a> <a target="_blank" href="http://shang.qq.com/wpa/qunwpa?idkey=264b50156ce981d9f1cbda98589cadc982a7787d9211938d7cd5f4c39514c2e3"><img border="0" src="../images/group.png" alt="微易ASP官方群" title="微易ASP官方群"></a></td>
      </tr>
      <tr>
        <td height="25" align="right">程序架构：</td>
        <td>林将 </td>
      </tr>
      <tr>
        <td height="25" align="right">程序开发：</td>
        <td>林将</td>
      </tr>
      <tr>
        <td height="25" align="right">UI设计：</td>
        <td>IT平民</td>
      </tr>
    </table>
  </div>
</div>
</body>
</html>
<%
function getwelcome()
	dim t0
	t0=hour(now())
	getwelcome="夜深了"
	if t0>=8 and t0<11 then
		getwelcome="上午好"
		exit function
	end if
	if t0>=11 and t0<13 then
		getwelcome="中午好"
		exit function
	end if
	if t0>=13 and t0<17 then
		getwelcome="下午好"
		exit function
	end if
	if t0>=17 and t0<22 then
		getwelcome="晚上好"
	end if
end function

Function IsObjInstalled(ObjName)
	On Error ReSume Next
	Set Obj = Server.CreateObject(ObjName)
	If Err.Number<>0 Then
		Err.Clear
		IsObjInstalled = False
		Else
			IsObjInstalled = True
	End If
	On Error Goto 0
End Function

%>
